home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / MOUSE < prev    next >
Text File  |  1994-12-13  |  172b  |  3 lines
  1. MOUSE: procedure;getuser 1202140;xc=result%8+1 ; getuser 1202142;yc=(result-11)%8+1
  2.   return arg(1)=yc & xc>=arg(2) & xc<arg(2)+arg(3) & bittst(import('00BF E001'x,1),6)=0
  3.